home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / ffont mover (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  10 lines
  1. 10 rem *ffont file mover*
  2. 20 a=2723:b=a+1:c=a+2:sys3115
  3. 30 sys3160:n$="":fori=.to4:n$=n$+chr$(peek(2709+i)):next
  4. 40 n=val(n$):ifn/2048<>int(n/2048)then30
  5. 50 ifn<4096orn>52000or(n>38912andn<49152)then30
  6. 60 n=n/256:pokea,n:n=(n/4)and15:ifn<10thenpokeb,48:pokec,n+48
  7. 70 ifn>9thenpokeb,49:pokec,n+38
  8. 80 sys3170:ifpeek(a)=89thenrun
  9. 90 end
  10.